home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / CODING / MISC / DSP4TEST.ZIP / TST5.ASM < prev    next >
Encoding:
Assembly Source File  |  1993-12-10  |  1.8 KB  |  65 lines
  1. ; used for power consumption measuring (maximum computational load)
  2.  
  3.     nolist
  4.     include 'leonid'
  5.     list
  6.  
  7.  
  8. M    equ    160
  9. buflen    equ    3*M
  10.  
  11.  
  12.     org    p:user_code
  13.  
  14.     move            #buffer+2,r7
  15.     move            #buflen*4-1,m7
  16.  
  17.     move            #buffer,r2
  18.     move            #4-1,n2
  19.     move            #buflen*4-1,m2
  20.  
  21.     ctrlcd    1,r2,buflen,LINEI,0.0,0.0,LINEO|HEADP,0.0,0.0
  22.     opencd    48
  23.  
  24. loop
  25.     move            x:$1234,a
  26.  
  27.     jmp    <loop
  28.  
  29.  
  30.     org    x:user_data
  31.  
  32. buffer    dsm    buflen*4
  33.  
  34.  
  35.     org    y:user_data
  36.  
  37.     dsm    buflen*4
  38.  
  39. ; 900 Hz lowpass filter generated using Parks-McClellan algorithm
  40. ;   sampling rate   8000 Hz
  41. ;   passband edge    840 Hz
  42. ;   stop band edge   960 Hz
  43. ;   filter lenght     79 taps
  44.     dsm    256
  45. lolen    equ    79
  46. lotaps    dc     1.619394e-02,5.805688e-03,3.155693e-03,-1.500173e-03,-6.545769e-03
  47.     dc    -9.963868e-03,-1.022255e-02,-7.061145e-03,-1.754771e-03,3.332559e-03
  48.     dc     5.765334e-03,4.199639e-03,-8.617942e-04,-7.138900e-03,-1.151400e-02
  49.     dc    -1.147496e-02,-6.426490e-03,1.780802e-03,9.467491e-03,1.274443e-02
  50.     dc     9.432186e-03,3.507424e-04,-1.070496e-02,-1.840716e-02,-1.827196e-02
  51.     dc    -9.051937e-03,6.112294e-03,2.066623e-02,2.704929e-02,2.031219e-02
  52.     dc     9.089151e-04,-2.437167e-02,-4.415325e-02,-4.639930e-02,-2.320264e-02
  53.     dc     2.545267e-02,9.059131e-02,1.564397e-01,2.052803e-01,2.232958e-01    ; center tap
  54.     dc     2.052803e-01,1.564397e-01,9.059131e-02,2.545267e-02,-2.320264e-02
  55.     dc    -4.639930e-02,-4.415325e-02,-2.437167e-02,9.089151e-04,2.031219e-02
  56.     dc     2.704929e-02,2.066623e-02,6.112294e-03,-9.051937e-03,-1.827196e-02
  57.     dc    -1.840716e-02,-1.070496e-02,3.507424e-04,9.432186e-03,1.274443e-02
  58.     dc     9.467491e-03,1.780802e-03,-6.426490e-03,-1.147496e-02,-1.151400e-02
  59.     dc    -7.138900e-03,-8.617942e-04,4.199639e-03,5.765334e-03,3.332559e-03
  60.     dc    -1.754771e-03,-7.061145e-03,-1.022255e-02,-9.963868e-03,-6.545769e-03
  61.     dc    -1.500173e-03,3.155693e-03,5.805688e-03,1.619394e-02
  62.  
  63.  
  64.     end
  65.